(read-quoted-char): Consistently downcase letter "digits".

diff --git a/lisp/subr.el b/lisp/subr.el
index 14ae2ba3e8509cbe68f140b7006d66380656377e..53c4b2716b38ae96ebaa08239a65153aff650f4d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -704,7 +704,8 @@ any other non-digit terminates the character code and is then used as input."))
             (and prompt (setq prompt (message "%s %c" prompt char))))
            ((and (<= ?a (downcase char))
                  (< (downcase char) (+ ?a -10 (min 26 read-quoted-char-radix))))
-            (setq code (+ (* code read-quoted-char-radix) (+ 10 (- char ?a))))
+            (setq code (+ (* code read-quoted-char-radix)
+                          (+ 10 (- (downcase char) ?a))))
             (and prompt (setq prompt (message "%s %c" prompt char))))
            ((and (not first) (eq char ?\C-m))
             (setq done t))